      * cobc -x principal.cbl  gestor_archivo.cbl -o subprogramas.exe
      ******************************************************************
       IDENTIFICATION DIVISION.
      ******************************************************************
       PROGRAM-ID. principal.       

      ******************************************************************
       ENVIRONMENT DIVISION.
      ******************************************************************
      ******************************************************************
       DATA DIVISION.
      ******************************************************************
      *****************************************************
       WORKING-STORAGE SECTION.
      *****************************************************

       77 gestor_archivo PIC X(14) VALUE 'gestor_archivo'.
         01 entrada_gestor.
           03 Operacion PIC X.

       01 SalidaGestor.
         03 EOFEntrada PIC X VALUE 'N'.
         03 Nombre PIC X(8).         
      ******************************************************************
       PROCEDURE DIVISION.
      ******************************************************************
       Begin.
         MOVE 'A' TO Operacion.
         CALL gestor_archivo USING entrada_gestor, SalidaGestor.

         PERFORM UNTIL EOFEntrada EQUAL 'S'
           MOVE 'L' TO Operacion
           CALL gestor_archivo USING entrada_gestor, SalidaGestor
           DISPLAY Nombre
         END-PERFORM.
         MOVE 'C' TO Operacion.
         CALL gestor_archivo USING entrada_gestor, SalidaGestor.
         STOP RUN.
